#!perl

use 5.016;

while (my $line = <DATA>) {
    chomp $line;
    if ($line =~ /^([\d\.]+),([\d\.]+)/) {
        say $line;
        my $first = $1 + 0.1;
        my $second = $2 - 0.1;
        say "($first,$second      ,400.xxx)";
    }
}


__DATA__
3,4.8         ,400.452802218193
3.2,4.6       ,400.615193459049
3.4,4.4       ,401.285205527175
3.6,4.2       ,402.253284109361
3.6,4.4       ,395.175614273155
3.8,4         ,403.497966749557
